(redraw-modeline): Define alias.

diff --git a/lisp/subr.el b/lisp/subr.el
index 51297611edb8b2881613ef09a2ec916d35dc9cee..fb03b7ad1ba4d2a4b583ad7cdfa4d3f81021a7ca 100644 (file)
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -1117,6 +1117,9 @@ This finishes the change group by reverting all of its changes."
        ;; Revert the undo info to what it was when we grabbed the state.
        (setq buffer-undo-list elt)))))
 \f
+;; For compatibility.
+(defalias 'redraw-modeline 'force-mode-line-update)
+
 (defun force-mode-line-update (&optional all)
   "Force the mode line of the current buffer to be redisplayed.
 With optional non-nil ALL, force redisplay of all mode lines."